home *** CD-ROM | disk | FTP | other *** search
/ Pro One: Netcracker Netscape Navigator / ProOne: Netcracker Netscape Navigator.iso / pc / nc / wds / nc_pad.geo / 00020.ls < prev    next >
Encoding:
Text File  |  1997-03-19  |  541 b   |  15 lines
  1. on mouseDown
  2.   set FirstMouseH to getAt(the clickLoc, 1)
  3.   set FirstMouseV to getAt(the clickLoc, 2)
  4.   set FirstRect to the rect of window "Present"
  5.   repeat while the stillDown
  6.     set currX to the mouseH - FirstMouseH
  7.     set currY to the mouseV - FirstMouseV
  8.     setAt(FirstRect, 1, getAt(FirstRect, 1) + currX)
  9.     setAt(FirstRect, 2, getAt(FirstRect, 2) + currY)
  10.     setAt(FirstRect, 3, getAt(FirstRect, 3) + currX)
  11.     setAt(FirstRect, 4, getAt(FirstRect, 4) + currY)
  12.     set the rect of window "Present" to FirstRect
  13.   end repeat
  14. end
  15.